// TOOLł͂炳̃TCg̃TvXNvgQlɂď܂Bӂł
// 
md_this=0,31,28,31,30,31,30,31,31,30,31,30,31,0,0,0
	nyear=gettime(0)
	if (((nyear\4=0)&(nyear\100!0))|(nyear\400=0)) {
		md_this(1) = 29
		logmes ""+gettime(0)+"͉[N"
	}
	md_next=0,31,28,31,30,31,30,31,31,30,31,30,31,0,0,0
	nyear=gettime(0)+1
	if (((nyear\4=0)&(nyear\100!0))|(nyear\400=0)) {
		md_next(1) = 29
		logmes ""+(gettime(0)+1)+"͉[N"
	}
	nyear=gettime(0)+2
	if (((nyear\4=0)&(nyear\100!0))|(nyear\400=0)) {
		logmes ""+(gettime(0)+2)+"͉[N"
	}
	nyear=gettime(0)+3
	if (((nyear\4=0)&(nyear\100!0))|(nyear\400=0)) {
		logmes ""+(gettime(0)+3)+"͉[N"
	}
// ܂
screen 0,170,400
cls 1
mes " "+gettime(0)+"N "+gettime(1)+" "+gettime(3)+""
mes "\n"+gettime(0)+"N"
cur_year=gettime(0)
;input cur_year,100,20
;ID4cur_year=stat
mes ""
cur_month=gettime(1)
input cur_month,100,20
ID4cur_month=stat
mes "H"
cur_day=gettime(3)
input cur_day,100,20
ID4cur_day=stat
mes "\n"
sel_bt_0=1
button "N",*sel_this_year
ID4bt_0_A=stat
button "N",*sel_next_year
ID4bt_0_B=stat
sel_bt=1
button "",*sel_this
ID4bt_A=stat
button "",*sel_next
ID4bt_B=stat
button "w",*sel_bt_C
ID4bt_C=stat
cur_that_month=gettime(1)
input cur_that_month,100,20
ID4cur_that_month=stat
mes "܂ŁH"
target_day=md_this.cur_month
input target_day,100,20
ID4target_day=stat
button "s",*_do
;button "main",*l_exec_A
stop
*sel_this_year
	sel_bt_0=1
	objprm ID4bt_0_A,"N"
	objprm ID4bt_0_B,"N"
	stop
*sel_next_year
	sel_bt_0=2
	objprm ID4bt_0_A,"N"
	objprm ID4bt_0_B,"N"
	sel_bt=3
	objprm ID4bt_A,""
	objprm ID4bt_B,""
	objprm ID4bt_C,"w"
	stop
*sel_this
	sel_bt_0=1
	objprm ID4bt_0_A,"N"
	objprm ID4bt_0_B,"N"
	sel_bt=1
	objprm ID4bt_A,""
	objprm ID4bt_B,"
	objprm ID4bt_C,"w
	stop"
*sel_next
	sel_bt_0=1
	objprm ID4bt_0_A,"N"
	objprm ID4bt_0_B,"N"
	sel_bt=2
	objprm ID4bt_A,""
	objprm ID4bt_B,"
	objprm ID4bt_C,"w
	stop"
*sel_bt_C
	sel_bt=3
	objprm ID4bt_A,""
	objprm ID4bt_B,""
	objprm ID4bt_C,"w"
	stop
*_do
	bar_day=md_this.cur_month-cur_day
	logmes str(bar_day)
	bar_day_next=md_this(cur_month+1)-cur_day
	logmes str(bar_day_next)
	if sel_bt_0==2{	goto *l_tochuu }
	if sel_bt==1{
		if cur_day>target_day{
			dialog "̓͏I",0
			stop
		}else{
			if cur_day==target_day{
				dialog "I",0
				stop
			}else{
				dialog "c"+str(target_day-cur_day+1)+"B撣I",0
				stop
			}
		}
	}
	if sel_bt==2{
		tmp_day=md_this.cur_month
		tmp_day_b=tmp_day-cur_day+target_day+1
		dialog "c"+str(tmp_day_b)+"B撣I",0
		stop
	}
	if sel_bt==3{
		if cur_month+1==cur_that_month{
			tmp_day=md_this.cur_month
			tmp_day_b=tmp_day-cur_day+target_day+1
			dialog "c"+str(tmp_day_b)+"B撣I",0
			stop
		}
		if cur_month==cur_that_month{
			if cur_day>target_day{
				dialog "̓͏I",0
				stop
			}
			if cur_day==target_day{
				dialog "I",0
				stop
			}else{
				dialog "c"+str(target_day-cur_day+1)+"B撣I",0
				stop
			}
		}
		if cur_month>cur_that_month{
			dialog "̌͏I",0
			stop
		}
*l_tochuu
		bar_day=md_this.cur_month-cur_day
		baz_A=1:baz_B=2:is_baz_B=0:if sel_bt_0==2:is_baz_B=1
		baz=1
		logmes "ʉA"
		if (cur_month<=baz){	
			if (is_baz_B==1){		bar_day+=md_this(baz)		
			}else{		if (cur_that_month>=baz+2){	bar_day+=md_this(baz)	}	}	
		}
		baz=2
		if (cur_month<=baz){	
			if (is_baz_B==1){		bar_day+=md_this(baz)		
			}else{		if (cur_that_month>=baz+2){	bar_day+=md_this(baz)	}	}	
		}
		baz=3
		if (cur_month<=baz){	
			if (is_baz_B==1){		bar_day+=md_this(baz)		
			}else{		if (cur_that_month>=baz+2){	bar_day+=md_this(baz)	}	}	
		}
		baz=4
		if (cur_month<=baz){	
			if (is_baz_B==1){		bar_day+=md_this(baz)		
			}else{		if (cur_that_month>=baz+2){	bar_day+=md_this(baz)	}	}		
		}
		baz=5
		if (cur_month<=baz){	
			if (is_baz_B==1){		bar_day+=md_this(baz)		
			}else{		if (cur_that_month>=baz+2){	bar_day+=md_this(baz)	}	}		
		}
		baz=6
		if (cur_month<=baz){	
			if (is_baz_B==1){		bar_day+=md_this(baz)		
			}else{		if (cur_that_month>=baz+2){	bar_day+=md_this(baz)	}	}		
		}
		baz=7
		if (cur_month<=baz){	
			if (is_baz_B==1){		bar_day+=md_this(baz)		
			}else{		if (cur_that_month>=baz+2){	bar_day+=md_this(baz)	}	}	
		}
		baz=8
		if (cur_month<=baz){	
			if (is_baz_B==1){		bar_day+=md_this(baz)		
			}else{		if (cur_that_month>=baz+2){	bar_day+=md_this(baz)	}	}	
		}
		baz=9
		if (cur_month<=baz){	
			if (is_baz_B==1){		bar_day+=md_this(baz)		
			}else{		if (cur_that_month>=baz+2){	bar_day+=md_this(baz)	}	}	
		}
		baz=10
		if (cur_month<=baz){	
			if (is_baz_B==1){		bar_day+=md_this(baz)		
			}else{		if (cur_that_month>=baz+2){	bar_day+=md_this(baz)	}	}	
		}
		baz=11
		if (cur_month<=baz){	
			if (is_baz_B==1){		bar_day+=md_this(baz)		
			}else{		if (cur_that_month>=baz+2){	bar_day+=md_this(baz)	}	}		
		}
		baz=12
		if (cur_month<=baz){	
			if (is_baz_B==1){		bar_day+=md_this(baz)		
			}else{		if (cur_that_month>=baz+2){	bar_day+=md_this(baz)	}	}	
		}
		if is_baz_B==0{
			tmp_day=md_this.cur_month
			tmp_day_b=tmp_day-cur_day+target_day
			dialog "c"+str(bar_day+tmp_day)+"B撣I",0
			stop
		}
		if (is_baz_B==1){
			logmes "ʉA"	
			baz=1
			if (cur_that_month>=baz+2){		bar_day+=md_next(baz)		}
			baz=2
			if (cur_that_month>=baz+2){		bar_day+=md_next(baz)		}
			baz=3
			if (cur_that_month>=baz+2){		bar_day+=md_next(baz)		}
			baz=4
			if (cur_that_month>=baz+2){		bar_day+=md_next(baz)		}
			baz=5
			if (cur_that_month>=baz+2){		bar_day+=md_next(baz)		}
			baz=6
			if (cur_that_month>=baz+2){		bar_day+=md_next(baz)		}
			baz=7
			if (cur_that_month>=baz+2){		bar_day+=md_next(baz)		}
			baz=8
			if (cur_that_month>=baz+2){		bar_day+=md_next(baz)		}
			baz=9
			if (cur_that_month>=baz+2){		bar_day+=md_next(baz)		}
			baz=10
			if (cur_that_month>=baz+2){		bar_day+=md_next(baz)		}
			baz=11
			if (cur_that_month>=baz+2){		bar_day+=md_next(baz)		}
			baz=12
			if (cur_that_month>=baz+2){		bar_day+=md_next(baz)		}
			tmp_day=md_next.cur_month
			tmp_day_b=tmp_day-cur_day+target_day
			dialog "c"+str(bar_day+tmp_day)+"B撣I",0
			stop
		}
	}

	stop
*l_exec_A
	exec "Ys_many_Timmer.exe"
	stop